home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / firewo1a / firework.bas next >
BASIC Source File  |  1999-09-12  |  660b  |  14 lines
  1. Attribute VB_Name = "FireWorksMod"
  2. Public Const Amount = 10 'This is how many fireworks that will be shown on the screen
  3. Public Const ExplodeLen = 100 'This is how long (how many steps) the explosions will last
  4. Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  5.  
  6. Public Sub NotOntop(FormName As Form)
  7. Call SetWindowPos(FormName.hWnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, Flags)
  8. End Sub
  9.  
  10. Public Sub Ontop(FormName As Form)
  11. Call SetWindowPos(FormName.hWnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, Flags)
  12. End Sub
  13.  
  14.